home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / Zoo6.Dxr / 00035.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  1.4 KB  |  35 lines

  1. on exitFrame
  2.   global tempcount, tempObject, homeVList, LbalanceHList, LbalanceVList, RbalanceHList, RbalanceVList, LcurrentWeight, homeHList, stickH1List, stickH2List, stickV1List, stickV2List, onScaleList, RcurrentWeight, incCount
  3.   set RcurrentWeight to 0
  4.   set LcurrentWeight to 0
  5.   set incCount to 0
  6.   set LbalanceHList to [88, 86, 85, 84, 83, 83, 83, 84, 85, 85, 85, 85]
  7.   set LbalanceVList to [244, 238, 232, 226, 220, 214, 208, 202, 196, 196, 196, 196]
  8.   set RbalanceHList to [257, 257, 258, 258, 258, 258, 257, 255, 254, 254, 254, 254]
  9.   set RbalanceVList to [196, 202, 208, 214, 220, 226, 232, 238, 244, 244, 244, 244]
  10.   set stickH1List to [1, 120, 112, 92, 72, 52, 32, 12, 12, 12, 12]
  11.   set stickV1List to [164, 158, 152, 146, 140, 134, 128, 122, 116, 116]
  12.   set stickH2List to [210, 220, 226, 246, 266, 286, 306, 226, 290, 300]
  13.   set stickV2List to [116, 122, 128, 134, 140, 146, 152, 158, 164, 178]
  14.   set onScaleList to [0, 0, 0, 0, 0]
  15.   set homeHList to [418, 572, 570, 422]
  16.   set homeVList to [136, 262, 132, 254]
  17.   puppetSprite(2, 1)
  18.   puppetSprite(3, 1)
  19.   puppetSprite(4, 1)
  20.   puppetSprite(6, 1)
  21.   puppetSprite(10, 1)
  22.   puppetSprite(11, 1)
  23.   puppetSprite(12, 1)
  24.   repeat with T = 14 to 17
  25.     puppetSprite(T, 1)
  26.   end repeat
  27.   if tempcount <> 1 then
  28.     WEASELSpeak("intro" & tempcount)
  29.   end if
  30.   if tempcount > 2 then
  31.     set the castNum of sprite 9 to the number of cast "more"
  32.   end if
  33.   set tempObject to 30
  34. end
  35.